home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD018c.dsk / PAL.80229.SALYER.MAR.83.B.bas < prev    next >
BASIC Source File  |  2003-06-12  |  3KB  |  78 lines
  1. 1  GOTO 700
  2. 2  REM  UPPER CASE CONVERT SUBROUTINE
  3. 3  IF   NOT UC  THEN  SPEED= 150: PRINT A$: SPEED= 255: RETURN 
  4. 4  FOR I = 1 TO  LEN(A$):XC =  ASC( MID$ (A$,I,1))
  5. 5 XC = XC -32 *(XC >96  AND XC <123)
  6. 6  PRINT  CHR$(XC);: NEXT I
  7. 7  PRINT : RETURN 
  8. 97  REM ************************
  9. 98 :
  10. 99 :
  11. 100  REM  LINES 110 THRU 430 ARE
  12. 101  REM  THE BUG FIXES TO THE
  13. 102  REM  TEXT.EDITOR PROGRAM.
  14. 103  REM  RUN 5000 TO PRODUCE A
  15. 104  REM  'EXEC' FILE TO UPDATE
  16. 105  REM  YOUR COPY OF THE EDITOR
  17. 110  IF  LEN(A$) +ID > = 38  THEN  CALL  -198: GOTO 50
  18. 160  IF  LEFT$(A$,1) =  CHR$(9)  THEN I$ = ID$ + RIGHT$(A$, LEN(A$) -1) +" ": GOTO 440
  19. 170  IF  LEFT$(A$,1) =  CHR$(14)  THEN I$ =  RIGHT$(A$, LEN(A$) -1) +" ": GOTO 440
  20. 290 MS =  INT((38 -TL)/(X -1) +.5): IF MS >2  THEN I$ = W$(1): FOR I = 2 TO X:I$ = I$ +" " +W$(I): NEXT I: GOTO 440
  21. 310 SL = 39 -TL -X
  22. 430  NEXT I:I$ = I$ +" "
  23. 498 :
  24. 499 :
  25. 500  REM ***********************
  26. 501 :
  27. 502 :
  28. 700  TEXT : HOME : PRINT "DO YOU HAVE A LOWER CASE APPLE? ";: INPUT "";X$
  29. 710  IF  LEFT$(X$,1) = "N"  THEN UC = 1
  30. 715  HOME : HTAB 5
  31. 720 A$ = "   There is a bug in the TEXT.EDITOR": PRINT : PRINT : PRINT : GOSUB 2
  32. 730 A$ = "program that I submitted in February.": PRINT : GOSUB 2
  33. 740 A$ = "The bug causes lines to run together": PRINT : GOSUB 2
  34. 750 A$ = "This is not immediately noticable, but": PRINT : GOSUB 2
  35. 760 A$ = "if you write a program that uses": PRINT : GOSUB 2
  36. 770 A$ = "a file that has words at the right": PRINT : GOSUB 2
  37. 780 A$ = "column, you will see that they will": PRINT : GOSUB 2
  38. 790 A$ = "runtogether like that.": PRINT : GOSUB 2
  39. 800  GOSUB 1060
  40. 810  HOME : VTAB 4
  41. 820 A$ = "In this program are the changes to the": GOSUB 2
  42. 830 A$ = "editor. To install the changes in your": PRINT : GOSUB 2
  43. 840 A$ = "copy, follow these steps:": PRINT : GOSUB 2
  44. 850 A$ = "     RUN 5000 :REM this will create": PRINT : GOSUB 2
  45. 860 A$ = "                   an 'EXEC' file": GOSUB 2
  46. 870 A$ = "     LOAD TEXT.EDITOR": PRINT : GOSUB 2
  47. 880 A$ = "     EXEC EDITOR.CHG": GOSUB 2
  48. 890 A$ = "     SAVE TEXT.EDITOR": GOSUB 2
  49. 900 A$ = "This will insert the changes for you.": PRINT : GOSUB 2
  50. 910 A$ = "If you have any problems with this,": PRINT : GOSUB 2
  51. 920  GOSUB 1060
  52. 930  HOME : VTAB 4
  53. 940 A$ = "you can write to me direct, or submit a": GOSUB 2
  54. 950 A$ = "SOFT.PALS program. My address is:": PRINT : GOSUB 2
  55. 960 A$ = "      Dale Salyer": PRINT : GOSUB 2
  56. 970 A$ = "      101 E. 88th Ave, Apt P-116": PRINT : GOSUB 2
  57. 980 A$ = "      Thornton, CO 80229": PRINT : GOSUB 2
  58. 990 A$ = " So long for now, and happy editing...": PRINT : PRINT : GOSUB 2
  59. 1000  PRINT "PRESS ANY KEY TO RUN MENU";
  60. 1010  GET R$: PRINT R$
  61. 1020  PRINT : PRINT  CHR$(4);"RUN PAL.MENU"
  62. 1030  END 
  63. 1040  FOR X = 1 TO 500: NEXT : RETURN 
  64. 1045 :
  65. 1060 A$ = "PRESS ANY KEY TO CONTINUE"
  66. 1065 S$ = "": FOR X = 1 TO 20 - LEN(A$)/2:S$ = S$ +" ": NEXT 
  67. 1070 A$ = S$ +A$ +S$: IF  LEN(A$)/2 < > INT( LEN(A$)/2)  THEN A$ = A$ +" "
  68. 1075  FOR X = 1 TO 20:PR$ =  LEFT$(A$,X) + RIGHT$(A$,X): VTAB 23: HTAB 21 -X: PRINT PR$;: NEXT X: GOSUB 1040
  69. 1080 Z =  PEEK( -16384): IF Z >127  THEN  POKE  -16368,0: RETURN 
  70. 1090  POKE  -16368,0: VTAB 23
  71. 1100  FOR W = 0 TO 20: VTAB 23: HTAB W +1: PRINT " ";: HTAB 40 -W: PRINT " ";: NEXT W
  72. 1110  GOTO 1060
  73. 5000 D$ =  CHR$(4): PRINT D$"MONICO"
  74. 5010  PRINT : POKE 33,33: PRINT D$;"OPEN EDITOR.CHG"
  75. 5020  PRINT D$;"WRITE EDITOR.CHG"
  76. 5030  LIST 110,430
  77. 5040  PRINT D$;"CLOSE EDITOR.CHG"
  78. 5050  PRINT D$;"NOMONICO": TEXT : END